home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Scope / Scope Disk #058 (199x)(Scope PD)(US)[WB].zip / Scope Disk #058 (199x)(Scope PD)(US)[WB].adf / B1Subs / TextRace < prev    next >
Text File  |  1989-01-24  |  7KB  |  299 lines
  1.  
  2.   WINDOW 1,"       ** THE GREAT AmigaBASIC TEXT RACE **             ",(0,10)-(450,170),22,-1
  3.   COLOR 2,1:CLS
  4.   PRINT ,"Loading ";CHR$(34);"graphics.bmap";CHR$(34)   
  5.  
  6. '************************************** 
  7. '* You will need the following LIBRARY*
  8. '* line plus the sub-routine of your  *
  9. '* choice. (routine numbers 1 thru 5) *
  10. '************************************** 
  11.  
  12. '**** Required ************************  
  13.   CHDIR ":" :REM <-- points to ".bmap"
  14.   LIBRARY "graphics.library"
  15. '**************************************
  16.   
  17.   CLEAR,25000
  18.   ON BREAK GOSUB PickOne
  19.   BREAK ON 
  20.   DEFINT A-Z
  21.   DIM Top$(9)
  22.   
  23.   InFile$="J:TextRace.txt"
  24.   
  25.   Top$(1)= " #1 Slowest - PRINT statement 32 color
  26.   Top$(2)= " #2 Regular WorkBench resolution PRINT
  27.   Top$(3)= " #3 Sub-Program CALLs graphics.library 
  28.   Top$(4)= " #4 Using ScrollRaster 2 color
  29.   Top$(5)= " #5 In-Line CALLs top to bottom text 2 color  
  30.   Top$(6)= " #6 Scroll then click for next page
  31.   Top$(7)= " #7 Top to bottom, then click for next page
  32.   Top$(8)= " #8 STOP and LIST program
  33.   Top$(9)= " #9 Leave Basic. Return to WorkBench
  34.   COLOR 2,1:   CLS: PRINT " "; 
  35.   COLOR 1,3
  36.   PRINT "  1    2    3    4    5    6    7    8    9  "
  37.   FOR I=0 TO 8
  38.     LINE(I*40+7,-1)-STEP(39,8),2,B
  39.   NEXT  
  40.   COLOR 2,1
  41.    
  42.   PRINT " Press key (#1 thru #9) or click above
  43.   PRINT "
  44.   FOR I=1 TO 9:PRINT Top$(I):NEXT  
  45.   PRINT 
  46.   PRINT "   A collection of routines you might want to
  47.   PRINT " use for displaying text.
  48.  
  49.   PRINT "   The options 3 thru 7 require that the
  50.   PRINT " graphics.bmap be loaded from your disk.
  51.  
  52.   PRINT "   Speeds will be shown at the bottom of the screens.
  53.   PRINT 
  54. PickOne:
  55.   WINDOW CLOSE 2
  56.   SCREEN CLOSE 2
  57.   Key = 0: mKey = 0
  58.   WHILE 1
  59.     XY=MOUSE(0):X=MOUSE(1):Y=MOUSE(2)  
  60.     IF XY<>0 AND Y<11 THEN mKey=INT(X*.025)+1 
  61.     A$=INKEY$
  62.     IF A$>"" THEN Key=ASC(A$)-48
  63.     IF mKey>0 AND mKey<10 THEN Key=mKey
  64.     IF Key>0 AND Key<10 THEN Which
  65.   WEND
  66.  
  67. Which:
  68.   ON Key GOTO 1,2,3,4,5,6,7,StopList,Ender
  69. '**************************************
  70.  
  71. '**************************************
  72. '*** #1 Slowest - PRINT statement 32 color
  73. '**************************************
  74. 1 
  75.   SCREEN 2,320,200,5,1 
  76.   WINDOW 2,Top$(1),(0,0)-(311,184),0,2
  77.   T&=TIMER:  
  78.    
  79.   OPEN InFile$ FOR INPUT AS #1
  80.  
  81.   WHILE NOT EOF(1) 
  82.     INPUT #1, GettingFile$
  83.     PRINT GettingFile$   
  84.   WEND
  85.     
  86.   B=LOF(1):  CLOSE #1 
  87. '**************** END *****************
  88.  GOTO Meter
  89.  
  90. '**************************************
  91. '*** #2 Regular WorkBench resolution PRINT
  92. '**************************************
  93. 2 
  94.   WINDOW 2,Top$(2),(0,2)-(631,184),0,-1
  95.   T&=TIMER:  
  96.    
  97.   OPEN InFile$ FOR INPUT AS #1
  98.  
  99.   WHILE NOT EOF(1) 
  100.     INPUT #1, GettingFile$
  101.     PRINT GettingFile$   
  102.   WEND
  103.     
  104.   B=LOF(1):  CLOSE #1 
  105. '**************** END *****************
  106.   GOTO Meter
  107.   
  108. '**************************************  
  109. '*** #3 Sub-Program CALLs graphics.library 
  110. '**************************************
  111. 3 
  112.   SCREEN 2,640,400,1,2
  113.   WINDOW 2,Top$(3),(0,2)-(631,210),0,2
  114.    
  115.   T&=TIMER:       W8&=WINDOW(8):  
  116.   Botm=WINDOW(3): BotmLine=Botm-8
  117.   X&=2:           Y&=Botm-3
  118.   LOCATE Botm*.125
  119.    
  120.   OPEN InFile$ FOR INPUT AS #1
  121.   
  122.   WHILE NOT EOF(1) 
  123.     INPUT #1, GettingFile$   
  124.     At X&,Y& 
  125.     Display GettingFile$ 
  126.     PRINT  
  127.   WEND
  128.     
  129.   B=LOF(1): CLOSE #1: GOTO Meter
  130.   
  131. '*** Display and At sub-programs for #3
  132.  
  133.  SUB At(X&,Y&) STATIC
  134.    CALL Move&(WINDOW(8),X&,Y&)
  135.  END SUB
  136.  
  137.  SUB Display(Txt$) STATIC
  138.    CALL Text&(WINDOW(8),SADD(Txt$),LEN(Txt$))
  139.  END SUB
  140. '**************** END *****************
  141.  
  142. '**************************************
  143. '*** #4 Using ScrollRaster 2 color
  144. '**************************************
  145. 4 
  146.   SCREEN 2,640,400,1,2
  147.   WINDOW 2,Top$(4),(0,2)-(631,210),0,2
  148.    
  149.   T&=TIMER:        
  150.   W8&=WINDOW(8):  Bot=27*8
  151.   Botm=WINDOW(3): BotmLine=Botm-8
  152.    
  153.   OPEN InFile$ FOR INPUT AS #1
  154.  
  155.   WHILE NOT EOF(1) 
  156.     INPUT #1, GettingFile$   
  157.     CALL Move&(W8&,2,BotmLine)
  158.     CALL Text&(W8&,SADD(GettingFile$),LEN(GettingFile$))
  159.     CALL ScrollRaster&(W8&,0,8,0,0,630,Botm)
  160.   WEND
  161.     
  162.   B=LOF(1):  CLOSE #1 
  163. '**************** END *****************
  164.   GOTO Meter
  165.  
  166. '**************************************  
  167. '*** #5 In-Line CALLs top to bottom text 2 color  
  168. '**************************************
  169. 5 
  170.   SCREEN 2,640,400,1,2
  171.   WINDOW 2,Top$(5),(0,2)-(631,210),0,2
  172.    
  173.   T&=TIMER:       Lines&=7
  174.   W8&=WINDOW(8):  Bot=27*8
  175.   Botm=WINDOW(3): BotmLine=Botm-8
  176.    
  177.   OPEN InFile$ FOR INPUT AS #1
  178.  
  179.   WHILE NOT EOF(1) 
  180.     INPUT #1, GettingFile$   
  181.     CALL Move&(W8&,2,Lines&)
  182.     CALL Text&(W8&,SADD(GettingFile$),LEN(GettingFile$))
  183.     CALL ClearEOL&(W8&)
  184.     Lines&=Lines&+8
  185.     IF Lines&>=Bot THEN Lines&=7
  186.   WEND
  187.     
  188.   B=LOF(1):  CLOSE #1 
  189. '**************** END *****************
  190.   GOTO Meter
  191.   
  192. '**************************************
  193. '*** #6 Using ScrollRaster 2 color
  194. '***    plus WAIT at end of page
  195. '**************************************
  196. 6 
  197.   SCREEN 2,640,400,1,2
  198.   WINDOW 2,Top$(4),(0,2)-(631,210),0,2
  199.    
  200.   T&=TIMER:       L=0 
  201.   W8&=WINDOW(8):  Bot=27*8
  202.   Botm=WINDOW(3): BotmLine=Botm-8
  203.    
  204.   OPEN InFile$ FOR INPUT AS #1
  205.  
  206.   WHILE NOT EOF(1) 
  207.     LINE INPUT #1, GettingFile$  
  208.     CALL Move&(W8&,2,BotmLine)
  209.     CALL Text&(W8&,SADD(GettingFile$),LEN(GettingFile$))
  210.     CALL ScrollRaster&(W8&,0,8,0,0,630,Botm)
  211.     L=L+1
  212.     IF L>21 THEN
  213.      L=0 :LOCATE 25,1
  214.      PRINT :PRINT ,,"Click to continue"
  215.      PRINT 
  216.      XY=MOUSE(0)
  217.      WHILE MOUSE(0)=0:WEND
  218.      WHILE MOUSE(0)<>0:WEND
  219.     END IF  
  220.   WEND
  221.     
  222.   B=LOF(1):  CLOSE #1 
  223. '**************** END *****************
  224.   GOTO Meter
  225.  
  226. '**************************************  
  227. '*** #7 In-Line CALLs top to bottom text 2 color  
  228. '***    plus WAIT at end of page
  229. '**************************************
  230. 7 
  231.   SCREEN 2,640,400,1,2
  232.   WINDOW 2,Top$(5),(0,2)-(631,210),0,2
  233.    
  234.   T&=TIMER:       Lines&=7
  235.   W8&=WINDOW(8):  Bot=23*8
  236.   Botm=WINDOW(3): BotmLine=Botm-8
  237.    
  238.   OPEN InFile$ FOR INPUT AS #1
  239.  
  240.   WHILE NOT EOF(1) 
  241.     LINE INPUT #1, GettingFile$   
  242.     CALL Move&(W8&,2,Lines&)
  243.     CALL Text&(W8&,SADD(GettingFile$),LEN(GettingFile$))
  244.     CALL ClearEOL&(W8&)
  245.     Lines&=Lines&+8
  246.     IF Lines&>=Bot THEN
  247.       Lines&=7
  248.       'LOCATE 25,1:
  249.       PRINT 
  250.       PRINT ,,"Click to continue"
  251.       XY=MOUSE(0)
  252.       WHILE MOUSE(0)=0:WEND
  253.       WHILE MOUSE(0)<>0:WEND
  254.     END IF  
  255.       
  256.   WEND
  257.     
  258.   B=LOF(1):  CLOSE #1 
  259. '**************** END *****************
  260.  
  261. Meter:  
  262.   COLOR 1,0: PRINT   
  263.   PRINT B;" bytes";SPACE$(80)  
  264.   PRINT TIMER-T&;" seconds";SPACE$(80)  
  265.   IF B>0 AND (TIMER-T&)>0 THEN
  266.     T= INT(B/(TIMER-T&))
  267.     PRINT T;" bytes per second";SPACE$(80)
  268.   END IF
  269.   PRINT "   CLICK to END";SPACE$(80)
  270.   PRINT  
  271.       
  272. WayCheer:
  273.   WHILE MOUSE(0)<>0: SLEEP: WEND
  274.   WHILE MOUSE(0)=0: SLEEP: WEND
  275.   WHILE MOUSE(0)<>0: SLEEP: WEND
  276.   GOTO PickOne 
  277.       
  278. StopList:
  279.   LIBRARY CLOSE 
  280.   CLEAR ,25000
  281.   LIST
  282.   COLOR 1,3 
  283.   PRINT ,"  Okay?   JeC 10/88  "
  284.   COLOR 2,1  
  285.   PRINT 
  286.   END
  287.   
  288. Ender:            
  289.   LIBRARY CLOSE 
  290.   CLEAR ,25000
  291.   COLOR 2,1
  292.   FOR I=1 TO 40
  293.   PRINT ,"   JeC 10/88  "
  294.   NEXT
  295.  
  296.   SYSTEM  
  297.  
  298.  
  299.